home *** CD-ROM | disk | FTP | other *** search
/ Brotikasten / BROTCD01.iso / geos / geos1.d64 / 50 hz geos (.txt) next >
Commodore BASIC  |  1995-08-05  |  527b  |  26 lines
  1. 10 REM *** 50HZ FUER GEOS 64 V 1.2 ***
  2. 35 A=A+1:IFA=1THENLOAD"GDM.OBJ",8,1
  3. 40 PRINT"[147]GEOS-KERNAL DISK EINLEGEN - TASTE"
  4. 45 POKE198,0:WAIT198,1
  5. 60 OPEN15,8,15,"UI":PRINT#15,"IO"
  6. 65 OPEN2,8,2,"GEOS KERNAL"
  7. 75 GOSUB200
  8. 85 SYS49152
  9. 95 TR=PEEK(49666):SE=PEEK(49667)
  10. 100 PRINT#15,"B-P:2 0"
  11. 110 POKE53265,11
  12. 120 FORRE=0TO16
  13. 125 :PRINT#15,"U1:2 0";TR;SE
  14. 130 :SYS49152
  15. 135 TA=TR:SA=SE
  16. 140 TR=PEEK(49664):SE=PEEK(49665)
  17. 145 NEXTRE
  18. 155 POKE49774,128
  19. 165 SYS49193:PRINT#15,"U2:2 0";TA;SA
  20. 175 POKE53265,27
  21. 185 CLOSE15:CLOSE2
  22. 190 PRINT"GEOS-KERNAL AUF 50HZ UMGESCHALTET":END
  23. 200 REM
  24. 205 INPUT#15,EC,E$,T,S:PRINT"DISK:";EC;E$;T;S
  25. 210 RETURN
  26.